home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue29 / web / FDIARY.DFM / FDIARY.txt
Encoding:
Text File  |  1997-07-28  |  1.7 KB  |  61 lines
  1. object WebModule1: TWebModule1
  2.   Actions = <
  3.     item
  4.       Default = True
  5.       Name = 'ActionDefault'
  6.       OnAction = HandleEntry
  7.     end
  8.     item
  9.       Name = 'ActionNewUser'
  10.       PathInfo = '/newuser'
  11.       OnAction = AddUser
  12.     end>
  13.   Left = 200
  14.   Top = 108
  15.   Height = 98
  16.   Width = 177
  17.   object ppDiary: TPageProducer
  18.     HTMLDoc.Strings = (
  19.       '<HTML><HEAD><TITLE>Web Diary</TITLE></HEAD>'
  20.       '<BODY><H1>Hello <#DIARYNAME></H1>'
  21.       '<P>Welcome to your diary on <#DIARYTODAY></P>'
  22.       '<FORM ACTION="http://localhost/scripts/diary.dll">'
  23.       '<TABLE BORDER="1" CELLPADDING="1" CELLSPACING="1" WIDTH="40%">'
  24.       '<TBODY><COLDEFS><COLDEF><COLDEF><COLDEF><COLDEF></COLDEFS>'
  25.       '<ROWS><TR><TD COLSTART="1" COLSPAN="2">Date'
  26.       '<INPUT NAME="ADATE" VALUE="<#DIARYDATE>"></TD>'
  27.       
  28.         '<TD COLSTART="4" COLSPAN="1"><INPUT TYPE="SUBMIT" NAME="getdate"' +
  29.         ' VALUE="Get date"></TD></TR>'
  30.       
  31.         '<TR><TD COLSTART="1" COLSPAN="3"><TEXTAREA NAME="donetoday" ROWS' +
  32.         '="10" COLS="70">'
  33.       '<#DIARYENTRY></TEXTAREA></TD></TR>'
  34.       '<TR><TD ALIGN="CENTER" COLSTART="1">'
  35.       
  36.         '<INPUT TYPE="SUBMIT" NAME="send" VALUE="Save Entry" ALIGN="MIDDL' +
  37.         'E"></TD>'
  38.       
  39.         '<TD ALIGN="CENTER" COLSTART="2"><INPUT TYPE="RESET" ALIGN="MIDDL' +
  40.         'E"></TD>'
  41.       
  42.         '<TD ALIGN="CENTER" COLSTART="3"><INPUT TYPE="SUBMIT" NAME="delus' +
  43.         'er"'
  44.       'VALUE="Change name for diary" ALIGN="MIDDLE"></TD></TR>'
  45.       '</ROWS></TBODY>'
  46.       '</TABLE></FORM>'
  47.       '</BODY></HTML>'
  48.       '')
  49.     OnHTMLTag = ppDiaryHTMLTag
  50.     Left = 32
  51.     Top = 16
  52.   end
  53.   object Table1: TTable
  54.     Active = True
  55.     DatabaseName = 'DBDEMOS'
  56.     TableName = 'wdiary.db'
  57.     Left = 88
  58.     Top = 16
  59.   end
  60. end
  61.